/* GUI CONVERTED from adadcgb.p (converter v1.76) Mon Apr 21 19:43:24 2003 */
/* adadcgb.p - ADDRESS CODE CHANGE -SUBPROGRAM FOR FIELD SERVICE FILES       */
/* Copyright 1986-2003 QAD Inc., Carpinteria, CA, USA.                       */
/* All rights reserved worldwide.  This is an unpublished work.              */
/* $Revision: 1.10.1.9 $                                                     */
/*V8:ConvertMode=Maintenance                                                 */
/* REVISION: 7.0      LAST MODIFIED: 04/28/92   BY: sas *F439*               */
/* REVISION: 7.3      LAST MODIFIED: 03/25/93   BY: afs *G875*               */
/* REVISION: 7.3      LAST MODIFIED: 05/28/93   BY: MPP *GB39*/
/* REVISION: 7.3      LAST MODIFIED: 06/28/93   BY: cdt *GD34*/
/* REVISION: 7.3      LAST MODIFIED: 01/26/94   BY: cdt *FL62*/
/* REVISION: 7.3      LAST MODIFIED: 01/27/94   BY: dpm *FL63*/
/*                                   09/26/94   BY: jzs *GM54*/
/* REVISION: 7.4      LAST MODIFIED: 11/19/96   BY: *H0PD* Aruna Patil       */
/* REVISION: 8.6      LAST MODIFIED: 07/03/97   BY: *J1VN* Molly Balan       */
/* REVISION: 8.6E     LAST MODIFIED: 02/23/98   BY: *L007* A. Rahane         */
/* REVISION: 8.6E     LAST MODIFIED: 05/20/98   BY: *K1Q4* Alfred Tan        */
/* REVISION: 8.6E     LAST MODIFIED: 10/04/98   BY: *J314* Alfred Tan        */
/* REVISION: 9.0      LAST MODIFIED: 03/10/99   BY: *M0B3* Michael Amaladhas */
/* REVISION: 9.0      LAST MODIFIED: 03/13/99   BY: *M0BD* Alfred Tan        */
/* REVISION: 9.1      LAST MODIFIED: 03/24/00   BY: *N08T* Annasaheb Rahane  */
/* REVISION: 9.1      LAST MODIFIED: 08/11/00   BY: *N0KK* jyn               */
/* REVISION: 9.1      LAST MODIFIED: 02/06/01   BY: *N0VG* Jyoti Thatte      */
/* Old ECO marker removed, but no ECO header exists *F056*                   */
/* Old ECO marker removed, but no ECO header exists *F0PN*                   */
/* Revision: 1.10.1.6  BY: Vivek Dsilva       DATE: 03/04/02  ECO: *M1W7*    */
/* Revision: 1.10.1.7  BY: Niranjan R.        DATE: 03/09/02  ECO: *P020*    */
/* Revision: 1.10.1.8  BY: Katie Hilbert      DATE: 01/06/03  ECO: *P0LN*    */
/* $Revision: 1.10.1.9 $ BY: Narathip W.        DATE: 04/17/03  ECO: *P0Q4*    */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/

{mfdeclre.i}

/* EXTERNAL LABEL INCLUDE */
{gplabel.i}
{cxcustom.i "ADADCGB.P"}

{gpfilev.i}
define shared variable addr1      like ad_addr.
define shared variable addr2      like ad_addr.
define shared variable i          as integer no-undo.
define shared variable num_rec    as integer no-undo.
define shared variable cnt_clear  like mfc_logical.
define shared variable adtype     like ad_type.
define        variable jk         as integer.
define shared frame b.

do with frame b:

   {&ADADCGB-P-TAG1}
   FORM /*GUI*/ 
      file_desc    label "Data Set" format "x(30)"
      num_rec      label "Records Updated"
      with frame b width 80 down no-attr-space THREE-D /*GUI*/.

   {&ADADCGB-P-TAG2}

   /* SET EXTERNAL LABELS */
   setFrameLabels(frame b:handle).

   /* Sa_enduser NO LONGER EXIST IN SA_MSTR. sa_enduser CHANGED TO SA_CUST. */
   {adadcg4.i sa_mstr addr1 addr2 sa_cust sa_cust
              sa_bill_to "sa_slspsn" 2 " "}

   {adadcg3.i rma_mstr addr1 addr2 rma_cust_ven
              rma_ship rma_bill_to " " }

   /* CHANGE sad_eu_nbr, sad_cust and sad_bill_to OF SAD_DET */
   {adadcg3.i sad_det addr1 addr2 sad_cust sad_eu_nbr sad_bill_to " "}

   /* CHANGE defr_eu_nbr OF DEFR_DET. */
   {adadcg3.i defr_det addr1 addr2 defr_cust defr_eu_nbr defr_bill_to " "}

   /* CHANGE sab_eu_nbr, sab_cust AND sab_bill_to OF SAB_DET. */
   {adadcg3.i sab_det addr1 addr2 sab_cust sab_eu_nbr sab_bill_to " "}

   {mfcscg.i ca_mstr    ca_bill       addr1 addr2}
   {mfcscg.i ca_mstr    ca_eu_nbr     addr1 addr2}
   {mfcscg.i chm_mstr   chm_eu_nbr    addr1 addr2}
   {mfcscg.i isb_mstr   isb_eu_nbr    addr1 addr2}
   {mfcscg.i iss_mstr   iss_eu_nbr    addr1 addr2}
   {mfcscg.i cah_hist   cah_eu_nbr    addr1 addr2}
   {mfcscg.i ib_det     ib_eu_nbr     addr1 addr2}
   {mfcscg.i srr_mstr   srr_eu_nbr    addr1 addr2}
   {mfcscg.i sad_det    sad_eu_nbr    addr1 addr2}
   {mfcscg.i eng_mstr   eng_address   addr1 addr2}
   {mfcscg.i ca_mstr    ca_customer   addr1 addr2}
   {mfcscg.i itm_det    itm_eu_nbr    addr1 addr2}
   {mfcscg.i itmh_hist  itmh_eu_nbr   addr1 addr2}

   /* SALES PERSON ARRAYS -                                      */
   /* THE ONLY FIELDS UPDATED IN THE FOLLOWING FILES ARE         */
   /* SALESPERSON ARRAYS.FILES WHICH HAVE OTHER FIELDS           */
   /* TO BE UPDATED SHOULD BE UPDATED THROUGH adadcg3.i IN THE   */
   /* SECTION ABOVE.                                             */

   if adtype = "slsprsn"
   then do:
      {adadcg5.i sad_det  addr1 addr2 "sad_slspsn" 3 " " }
   end.  /* IF adtype = "slsprsn" */

   {adadcg3.i sro_mstr addr1 addr2 sro_cust sro_ship sro_ship " "}

end.  /* DO WITH FRAME b: */
